home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / NEUMAP3.ZIP / NUMP.ZP / UNSUPM.BAT < prev    next >
Encoding:
DOS Batch File  |  1994-08-19  |  2.0 KB  |  101 lines
  1. :unsup
  2.  
  3. echo off
  4.  
  5. c:\neuron\batchm\Ben menuF c:\neuron\batchm\unsupm.mnu
  6.  
  7. IF ERRORLEVEL 5  GOTO end
  8. IF ERRORLEVEL 4  GOTO help
  9. IF ERRORLEVEL 3  GOTO Util
  10. IF ERRORLEVEL 2  GOTO neuron
  11. IF ERRORLEVEL 1  GOTO conv   
  12. IF ERRORLEVEL 0  GOTO END 
  13.  
  14.  
  15. :conv
  16. c:\neuron\batchm\Ben menuF c:\neuron\batchm\unsupm1.mnu
  17.  
  18. IF ERRORLEVEL 5  GOTO unsup
  19. IF ERRORLEVEL 4  GOTO helpcv
  20. IF ERRORLEVEL 3  GOTO exam1
  21. IF ERRORLEVEL 2  GOTO run2   
  22. IF ERRORLEVEL 1  GOTO run1   
  23. IF ERRORLEVEL 0  GOTO END 
  24.  
  25.  
  26. :run1
  27. c:\neuron\batchm\Ben cls blue
  28. IF NOT EXIST Clusm.par   copy c:\neuron\batchm\Clusm.par
  29. edit clusm.par
  30. c:\neuron\batchm\Ben cls blue
  31. c:\neuron\clustr<clusm.par
  32. pause
  33. c:\neuron\batchm\Ben cls blue
  34. GOTO conv
  35.  
  36. :run2
  37. c:\neuron\batchm\Ben cls blue
  38. c:\neuron\clustr
  39. c:\neuron\batchm\Ben cls blue
  40. GOTO conv
  41.  
  42. :exam1
  43. If Not EXIST clustr.out GOTO conv
  44. c:\neuron\batchm\Ben list clustr.out Output~of~Conventional~Clustering~Program 
  45. GOTO conv
  46.  
  47. :helpcv
  48. c:\neuron\batchm\Ben list c:\neuron\batchm\kmea.hlp Conventional~Clustering~Help
  49. goto conv
  50.  
  51.  
  52. :neuron
  53. c:\neuron\batchm\Ben menuF c:\neuron\batchm\unsupm2.mnu
  54.  
  55. IF ERRORLEVEL 5  GOTO unsup
  56. IF ERRORLEVEL 4  GOTO helpsm
  57. IF ERRORLEVEL 3  GOTO exam2
  58. IF ERRORLEVEL 2  GOTO rn2   
  59. IF ERRORLEVEL 1  GOTO rn1   
  60. IF ERRORLEVEL 0  GOTO END 
  61.  
  62.  
  63. :rn1
  64. c:\neuron\batchm\Ben cls blue
  65. IF NOT EXIST Somm.par   copy c:\neuron\batchm\Somm.par
  66. edit somm.par
  67. c:\neuron\batchm\Ben cls blue
  68. c:\neuron\Som<Somm.par
  69. pause
  70. c:\neuron\batchm\Ben cls blue
  71. GOTO neuron
  72.  
  73. :rn2
  74. c:\neuron\batchm\Ben cls blue
  75. c:\neuron\Som
  76. c:\neuron\batchm\Ben cls blue
  77. GOTO neuron
  78.  
  79. :exam2
  80. If Not EXIST som.out GOTO neuron
  81. c:\neuron\batchm\Ben list som.out Output~of~Neural~Clustering~Program 
  82. GOTO neuron
  83.  
  84. :helpsm
  85. c:\neuron\batchm\Ben list c:\neuron\batchm\somc.hlp Self-Organizing~Map~Help
  86. goto neuron
  87.  
  88.  
  89.  
  90. :Util
  91. call c:\neuron\batchm\Dirdel
  92. GOTO unsup
  93.  
  94. :help
  95. c:\neuron\batchm\Ben list c:\neuron\batchm\uns.hlp Unsupervised~Learning~Help
  96. goto unsup
  97.  
  98.  
  99. :End
  100.  
  101.